Option Explicit
Sub B_Sample026()
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)			'N
    With mySht
        MsgBox .ProtectContents		'eO@
        MsgBox .ProtectDrawingObjects		'yø󪺫O@B
        MsgBox .ProtectScenarios			'ScenarioO@
        MsgBox .ProtectionMode		'eܧ󪺫O@
        'HUȷ|bExcel2002X{
        With .Protection
            MsgBox .AllowDeletingColumns		'\R
            MsgBox .AllowDeletingRows		'\RC
            MsgBox .AllowFiltering				'\۰ʿz
            MsgBox .AllowFormattingCells 			'\xs榡ܧ
            MsgBox .AllowFormattingColumns		'\檺榡ܧ
            MsgBox .AllowFormattingRows 			'\C榡ܧ
            MsgBox .AllowInsertingColumns 		'\洡J
            MsgBox .AllowInsertingHyperlinks		'\WsJ
            MsgBox .AllowInsertingRows 			'\CJ
            MsgBox .AllowSorting 					'\Ƨ
        End With
    End With
    Set mySht = Nothing						'
End Sub
